home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).adf / PCQ / Examples / WhereFrom.p < prev   
Text File  |  1989-03-31  |  371b  |  19 lines
  1. Program WhereFrom;
  2.  
  3. {$I "include/dos.i"}
  4.  
  5. var
  6.     stdfile : FileHandle;
  7.  
  8. begin
  9.     { Calling Input() will always give you the filehandle of standard
  10.       input, since that's where the startup code gets it from }
  11.  
  12.     stdfile := Input();
  13.     if IsInteractive(stdfile) then
  14.     writeln('Input is coming from the console.')
  15.     else
  16.     writeln('Input is comming from a file.');
  17. end.
  18.  
  19.